home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / tpascal / hotmap / david.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-27  |  2.9 KB  |  108 lines
  1. unit David;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, VBXCtrl, Hotmap, Pict, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TfmDavid = class(TForm)
  11.     HotMap1: THotMap;
  12.     BiPict1: TBiPict;
  13.     RadioGroup1: TRadioGroup;
  14.     Memo1: TMemo;
  15.     Edit1: TEdit;
  16.     Edit2: TEdit;
  17.     Edit3: TEdit;
  18.     ListBox1: TListBox;
  19.     ListBox2: TListBox;
  20.     Button1: TButton;
  21.     Label1: TLabel;
  22.     Label2: TLabel;
  23.     Label3: TLabel;
  24.     Label4: TLabel;
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure FormShow(Sender: TObject);
  27.     procedure HotMap1RegionMouseDown(Sender: TObject;
  28.       var RegionNum: Single; var Button: Integer);
  29.     procedure HotMap1RegionMouseUp(Sender: TObject; var RegionNum: Single;
  30.       var Button: Integer);
  31.     procedure Button1Click(Sender: TObject);
  32.     procedure RadioGroup1Click(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   fmDavid: TfmDavid;
  41.  
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46. procedure TfmDavid.FormCreate(Sender: TObject);
  47.     var DtFl: TVBString;
  48. begin
  49.         Memo1.Text := 'This portion of the demo shows additional features of the HotMap VBX. ';
  50.         Memo1.Text := Memo1.Text + 'Click anywhere on the face of this kid. Pick the region with the mouse, ';
  51.         Memo1.Text := Memo1.Text + 'while button is pushed drag the mouse and release button on the different region. ';
  52.         Memo1.Text := Memo1.Text + 'Now look at ''Mouse Down Event'' and ''Mouse Up Event'' ListBoxes. ';
  53.         Memo1.Text := Memo1.Text + 'Resize the form.  HotMap supports true 256 colors stretch.';
  54.  
  55.         DtFl    := 'DAVID.HMD';
  56.         HotMap1.DataFile := DtFl;
  57.         HotMap1.Action := 4;
  58. {        DtFl    := 'DAVID.BMP';
  59.         HotMap1.BmpName := DtFl;
  60. }
  61.         Edit1.Text := IntToStr(HotMap1.NumOfRgns);
  62. end;
  63.  
  64. procedure TfmDavid.FormShow(Sender: TObject);
  65. begin
  66.          RadioGroup1.ItemIndex := 3;
  67.         HotMap1.FillType := 3;
  68.         HotMap1.MouseCursor := BiPict1.Picture;
  69.         HotMap1.MouseHotX := 0;
  70.         HotMap1.MouseHotY := 11;
  71. end;
  72.  
  73. procedure TfmDavid.HotMap1RegionMouseDown(Sender: TObject;
  74.   var RegionNum: Single; var Button: Integer);
  75.   var Rn:    Integer;
  76. begin
  77.     Rn := Round(RegionNum);
  78.  
  79.     if(Rn > 0) then
  80.     begin
  81.         ListBox1.Items.Add(HotMap1.RegionString[Rn - 1]);
  82.         Edit2.Text := IntToStr(Rn);
  83.         Edit3.Text := HotMap1.RegionString[Rn - 1];
  84.     end;
  85. end;
  86.  
  87. procedure TfmDavid.HotMap1RegionMouseUp(Sender: TObject;
  88.   var RegionNum: Single; var Button: Integer);
  89.   var Rn:    Integer;
  90. begin
  91.     Rn := Round(RegionNum);
  92.     if(Rn > 0) then
  93.         ListBox2.Items.Add(HotMap1.RegionString[Rn - 1]);
  94. end;
  95.  
  96. procedure TfmDavid.Button1Click(Sender: TObject);
  97. begin
  98.     ListBox1.Clear;
  99.     ListBox2.Clear;
  100. end;
  101.  
  102. procedure TfmDavid.RadioGroup1Click(Sender: TObject);
  103. begin
  104.     HotMap1.FillType := RadioGroup1.ItemIndex;
  105. end;
  106.  
  107. end.
  108.